home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / FAX_SSTV / VESTER_M / VWXP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-03-06  |  3.1 KB  |  69 lines
  1. 10  CLEAR,32768:KEY OFF:CLS
  2. 15  GOTO 1020
  3. 20  X$="system":KEY 10,X$+CHR$(13):KEY 5,"LIST 1000-"+CHR$(13)
  4. 25  KEY 4,"SAVE"+CHR$(34)+"VWXP"
  5. 30  DEF SEG=&H4F00
  6. 40  BLOAD "vu960a.asm",&H100
  7. 41  IF VC=2 THEN POKE 408,16
  8. 49  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"                       K3BC WEATHERFAX VIEWING (960 pixels)"
  9. 50  PRINT:PRINT"   This program is for viewing on a VGA (640x480) machine a picture that was"
  10. 60  PRINT"captured with the WXP program and has been SAVEd in either FULL or COMPRESSED"
  11. 65  PRINT"format. WXP is in the 960 pixel/line larger format."
  12. 70  PRINT"   When you select a picture file using the cursor, it is initially"
  13. 110  PRINT"displayed in the GRAY colors. Hit 1, 2, 3, or 4 to get other color schemes."
  14. 115  PRINT"Palette 1 can be custom tailored by changing the line 370 to 390 DATA table."
  15. 120  PRINT"Palette 2 choice gives the Gray . Scrolling is done with the arrow keys,"
  16. 130  PRINT"but D(own) and U(p) gives larger jumps. S will Shrink and X will eXpand the"
  17. 140  PRINT"pix. HOME removes the scrolling. Turn printer ON and hit P(rint) to print."
  18. 145  PRINT"To view and possibly change the SYSTEM CONFIGURATION hit F5 twice."
  19. 150  PRINT"   Q(uit) exits the picture. F10 can be used to exit back to DOS, or to"
  20. 160  PRINT"view another picture you can hit F2 to reRUN the program."
  21. 180  FOR F=3728 TO 3775:READ G:POKE F,G:NEXT F
  22. 190  IF AU=1 THEN GOTO 210
  23. 199  PRINT:PRINT:PRINT:PRINT"       F5=SYS CONFIG      F10=DOS"
  24. 200  INPUT"   What Path or Directory is file in (Default=DF$)";PA$
  25. 201  IF PA$="" THEN PA$=DF$
  26. 203  IF PA$="LIST 1000-" THEN CLS:PRINT"     F5=SYS CONFIG   F10=DOS   F2=ReRUN": END
  27. 204  IF PA$="system" THEN CLS: SYSTEM
  28. 205  PRINT:PRINT:PRINT:INPUT"   Is the file in compressed form--y or n (Default=y)";Y$
  29. 210  IF Y$="" THEN Y$="y"
  30. 220  IF Y$="n" THEN GOTO 280
  31. 230  IF Y$="y" GOTO 250
  32. 240  GOTO 200
  33. 250  CLS:FILES PA$+"*.zip":GOSUB 400
  34. 260  SHELL "wxpunzip "+A$+" "+PA$
  35. 270  A$="pix.wx":GOTO 310
  36. 280  CLS:FILES PA$+"*.960":GOSUB 400
  37. 290  IF A$="" THEN A$="pix.wx":GOTO 310
  38. 300  A$=PA$+A$+".960"
  39. 310  DEF SEG=&H4F00:K=&H100:CALL K(A%,B%,A$)
  40. 320  PRINT:PRINT:PRINT:PRINT"         HIT F2 FOR ANOTHER PIX-----HIT F10 TO GOTO DOS"
  41. 330  END
  42. 340  'These data are for palette no.1. Each group of 3 is red, green, blue
  43. 350  'amplitudes. That is: 0,0,0=Black; 63,0,0=Bright Red; 63,63,63=White;etc.
  44. 360  'You can change them to form your own palette. Max. amplitude is 63.
  45. 370  DATA 0,0,0,0,31,0,0,47,0,0,63,0,31,63,0,63
  46. 380  DATA 0,47,63,0,31,63,0,16,63,0,0,63,16,0,63,31
  47. 390  DATA 0,63,47,0,63,63,0,47,63,0,31,63,0,63,63,63
  48. 400  PRINT"                        MOVE CURSOR TO FILE"
  49. 410  DEF SEG=&H6F00:BLOAD "pickfile.asm",&H100
  50. 420  K=&H100:CALL K
  51. 430  FOR Y=&H190 TO &H19C
  52. 440  Z=PEEK(Y)
  53. 450  IF Z=32 OR Z=46 THEN GOTO 480
  54. 460  Z$=CHR$(Z)
  55. 470  A$=A$+Z$:NEXT Y
  56. 480  PRINT A$
  57. 490  RETURN
  58. 1000   '                       SYSTEM CONFIGURATION
  59. 1010   '      xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  60. 1020   VC=1      'Video Card--VC=1 is VGA (640x480)--VC=2 is EGA (640x350)
  61. 1030   AU=0      'AU=0 is No auto choices--AU=1 is automatic default choices
  62. 1035   DF$="c:\tv\wxp\"    'Default path where files copied by WXP reside
  63. 1040   GOTO 20
  64. 1115    '                 ------- INSTRUCTIONS -------
  65. 1120    ' To change the configuration, move cursor and type new choice and
  66. 1130    ' ENTER. Move the cursor in the clear and hit F5 to check change.
  67. 1140    ' To save the change, move cursor in the clear, hit F4, which types
  68. 1150    ' VWXP and ENTER. F2 will then reRUN the program or F10 goes to DOS.
  69.